home *** CD-ROM | disk | FTP | other *** search
- object Form35: TForm35
- Left = 267
- Top = 193
- AutoSize = True
- BorderStyle = bsNone
- Caption = 'Kay�t Giri�i'
- ClientHeight = 380
- ClientWidth = 640
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 640
- Height = 380
- AutoSize = True
- Picture.Data = {<image000.jpg>}
- OnMouseDown = Image1MouseDown
- end
- object Label1: TLabel
- Left = 48
- Top = 56
- Width = 17
- Height = 16
- Caption = 'Ad'
- Color = clBlue
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label2: TLabel
- Left = 48
- Top = 88
- Width = 40
- Height = 16
- Caption = 'Soyad'
- Color = clBlue
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label3: TLabel
- Left = 48
- Top = 120
- Width = 48
- Height = 16
- Caption = 'Telefon'
- Color = clBlue
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label4: TLabel
- Left = 48
- Top = 152
- Width = 85
- Height = 16
- Caption = 'Cep Telefonu'
- Color = clBlue
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label5: TLabel
- Left = 48
- Top = 184
- Width = 86
- Height = 16
- Caption = '�kinci Telefon'
- Color = clBlue
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label6: TLabel
- Left = 48
- Top = 216
- Width = 29
- Height = 16
- Caption = 'Faks'
- Color = clBlue
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label7: TLabel
- Left = 48
- Top = 264
- Width = 8
- Height = 16
- Caption = '�l'
- Color = clBlue
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label8: TLabel
- Left = 384
- Top = 56
- Width = 39
- Height = 16
- Caption = 'Resim'
- Color = clBlue
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label9: TLabel
- Left = 376
- Top = 184
- Width = 36
- Height = 16
- Caption = 'Adres'
- Color = clBlue
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Label10: TLabel
- Left = 376
- Top = 264
- Width = 59
- Height = 16
- Caption = 'A��klama'
- Color = clBlue
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Image2: TImage
- Left = 592
- Top = 24
- Width = 13
- Height = 13
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- OnClick = Image2Click
- end
- object Image3: TImage
- Left = 576
- Top = 24
- Width = 13
- Height = 13
- AutoSize = True
- Picture.Data = {<image002.bmp>}
- OnClick = Image3Click
- end
- object DBEdit1: TDBEdit
- Left = 144
- Top = 56
- Width = 121
- Height = 21
- DataField = 'Ad'
- DataSource = DataSource1
- TabOrder = 0
- OnKeyPress = DBEdit1KeyPress
- end
- object DBEdit2: TDBEdit
- Left = 144
- Top = 88
- Width = 121
- Height = 21
- DataField = 'Soyad'
- DataSource = DataSource1
- TabOrder = 1
- OnKeyPress = DBEdit1KeyPress
- end
- object DBEdit3: TDBEdit
- Left = 144
- Top = 120
- Width = 121
- Height = 21
- DataField = 'Telefon'
- DataSource = DataSource1
- MaxLength = 15
- TabOrder = 2
- OnKeyPress = DBEdit1KeyPress
- end
- object DBEdit4: TDBEdit
- Left = 144
- Top = 152
- Width = 121
- Height = 21
- DataField = 'Ceptel'
- DataSource = DataSource1
- MaxLength = 15
- TabOrder = 3
- OnKeyPress = DBEdit1KeyPress
- end
- object DBEdit5: TDBEdit
- Left = 144
- Top = 184
- Width = 121
- Height = 21
- DataField = 'Ikincitel'
- DataSource = DataSource1
- MaxLength = 15
- TabOrder = 4
- OnKeyPress = DBEdit1KeyPress
- end
- object DBMemo1: TDBMemo
- Left = 440
- Top = 264
- Width = 161
- Height = 57
- DataField = 'Aciklama'
- DataSource = DataSource1
- TabOrder = 9
- OnKeyPress = DBEdit1KeyPress
- end
- object DBMemo2: TDBMemo
- Left = 440
- Top = 184
- Width = 161
- Height = 57
- DataField = 'Adres'
- DataSource = DataSource1
- TabOrder = 8
- OnKeyPress = DBEdit1KeyPress
- end
- object DBImage1: TDBImage
- Left = 440
- Top = 56
- Width = 97
- Height = 105
- DataField = 'Resim'
- DataSource = DataSource1
- PopupMenu = PopupMenu1
- Stretch = True
- TabOrder = 7
- OnKeyPress = DBEdit1KeyPress
- end
- object DBEdit6: TDBEdit
- Left = 144
- Top = 216
- Width = 121
- Height = 21
- DataField = 'Faks'
- DataSource = DataSource1
- MaxLength = 15
- TabOrder = 5
- OnKeyPress = DBEdit1KeyPress
- end
- object DBLookupComboBox1: TDBLookupComboBox
- Left = 144
- Top = 264
- Width = 121
- Height = 21
- DataField = 'Il'
- DataSource = DataSource1
- KeyField = 'Il'
- ListField = 'Il'
- ListSource = DataSource2
- TabOrder = 6
- OnKeyPress = DBEdit1KeyPress
- end
- object DBNavigator1: TDBNavigator
- Left = 50
- Top = 304
- Width = 210
- Height = 18
- DataSource = DataSource1
- Hints.Strings = (
- '�lk Kay�t'
- '�nceki Kay�t'
- 'Sonraki Kay�t'
- 'Son Kay�t'
- 'Kay�t Ekle'
- 'Kay�t Sil'
- 'De�i�iklik'
- 'Onayla'
- 'De�i�iklik �ptal'
- 'Yenile')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 10
- end
- object DataSource1: TDataSource
- DataSet = Table1
- Left = 168
- end
- object Table1: TTable
- Active = True
- AfterPost = Table1AfterPost
- TableName = 'tel.db'
- Left = 200
- object Table1No: TAutoIncField
- FieldName = 'No'
- ReadOnly = True
- end
- object Table1Ad: TStringField
- FieldName = 'Ad'
- end
- object Table1Soyad: TStringField
- FieldName = 'Soyad'
- end
- object Table1Telefon: TStringField
- FieldName = 'Telefon'
- EditMask = '!\(999\) 999-99-99;1;_'
- end
- object Table1Aciklama: TMemoField
- FieldName = 'Aciklama'
- BlobType = ftMemo
- Size = 50
- end
- object Table1Ikincitel: TStringField
- FieldName = 'Ikincitel'
- EditMask = '!\(999\) 999-99-99;1;_'
- end
- object Table1Ceptel: TStringField
- FieldName = 'Ceptel'
- EditMask = '!\(999\) 999-99-99;1;_'
- end
- object Table1Faks: TStringField
- FieldName = 'Faks'
- EditMask = '!\(999\) 999-99-99;1;_'
- end
- object Table1Il: TStringField
- FieldName = 'Il'
- end
- object Table1Resim: TGraphicField
- FieldName = 'Resim'
- BlobType = ftGraphic
- end
- object Table1Adres: TMemoField
- FieldName = 'Adres'
- BlobType = ftMemo
- Size = 50
- end
- object Table1M: TMemoField
- FieldName = 'M'
- BlobType = ftMemo
- Size = 1
- end
- end
- object PopupMenu1: TPopupMenu
- Left = 232
- object Dosyadan1: TMenuItem
- Caption = 'Dosyadan'
- OnClick = Dosyadan1Click
- end
- object Clipborddan1: TMenuItem
- Caption = 'Clipborddan'
- OnClick = Clipborddan1Click
- end
- end
- object DataSource2: TDataSource
- DataSet = Table2
- Left = 272
- end
- object Table2: TTable
- Active = True
- TableName = 'il.db'
- Left = 312
- object Table2Il: TStringField
- FieldName = 'Il'
- Size = 15
- end
- end
- object OpenPictureDialog1: TOpenPictureDialog
- Filter = 'Bitmaps (*.bmp)|*.bmp'
- Left = 344
- end
- end
-